home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Behavior Library.cst / 00006_Go to Next Marker.ls < prev    next >
Encoding:
Text File  |  1997-05-09  |  1.2 KB  |  56 lines
  1. -- Marker    Go to      Next 
  2.  
  3. -- Nav
  4. -- drag to a sprite 
  5. -- goes to next marker on author selected event
  6. -- also functions through lingo by handling message 'initGotoNextMarker', 
  7. -- for example if this behavior was assigned to sprite 5, use
  8. -- sendsprite 5, #initGotoNextMarker
  9.  
  10. property whichEvent
  11.  
  12. on initGotoNextMarker me
  13.   init me
  14. end
  15.  
  16. on mouseUp me
  17.   if whichEvent = #mouseup    then init me
  18. end
  19.  
  20. on prepareFrame me
  21.   if whichEvent = #prepareframe then init me
  22. end
  23.  
  24. on exitFrame me
  25.   if whichEvent = #exitframe  then init me
  26. end
  27.  
  28. on init me
  29.   go to marker (1)
  30. end
  31.  
  32.  
  33.  
  34. ---
  35.  
  36. on getPropertyDescriptionList
  37.   
  38.   set p_list = [ ┬¼
  39.     #WhichEvent: [ #comment:  "Initializing Event:", ┬¼
  40.                     #format:   #symbol, ┬¼
  41.                      #range: [ #MouseUp, #PrepareFrame, #ExitFrame, #InitGotoNextMarker], ┬¼
  42.                    #default:   #MouseUp ] ┬¼
  43.                  ]
  44.   return p_list
  45.   
  46. end
  47.  
  48. on getBehaviorDescription
  49.   return ┬¼
  50. "Moves the Playback Head to the next marker when the specified event occurs.  Drag to a sprite or a frame in the script channel." && RETURN & ┬¼
  51. "PARAMETERS:" && RETURN & ┬¼
  52. "ΓÇó Initializing Event - Specify the event that triggers the behavior."
  53.   
  54. end
  55.  
  56.